home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch04 / mnotepad.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-24  |  982 b   |  37 lines
  1. VERSION 2.00
  2. Begin MDIForm frmMNotepad 
  3.    Caption         =   "My Text Editor Program"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1770
  7.    ClientWidth     =   7365
  8.    Height          =   4710
  9.    Icon            =   MNOTEPAD.FRX:0000
  10.    Left            =   1035
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1140
  13.    Width           =   7485
  14.    Begin Menu mnuFile 
  15.       Caption         =   "&File"
  16.       Begin Menu mnuNew 
  17.          Caption         =   "&New"
  18.       End
  19.       Begin Menu mnuExit 
  20.          Caption         =   "E&xit"
  21.       End
  22.    End
  23. Option Explicit
  24. Sub mnuExit_Click ()
  25.     End
  26. End Sub
  27. Sub mnuNew_Click ()
  28.     Dim frmNewChild As New frmDocument
  29.     Static DocNumber
  30.     If DocNumber = 0 Then
  31.        DocNumber = 1
  32.     End If
  33.     DocNumber = DocNumber + 1
  34.     frmNewChild.Show
  35.     frmMNotepad.ActiveForm.Caption = "<" + DocNumber + "> Untitled"
  36. End Sub
  37.